home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
AINDEX.DIR
/
00747_Script_aIndexManager
< prev
next >
Wrap
Text File
|
1995-09-06
|
6KB
|
142 lines
--òò╩aIndexManager
property pTopicMenu , pLatchedAlpha
on birth me
return me
end
on testIndexRollover me
--set the trace = true
set thisAlpha = the mouseCast
if (thisAlpha > 0 and thisAlpha < 27) then
set thisAlphaIndex = getAt(pTopicMenu,thisAlpha)
setTopicMenu(thisAlphaIndex)
clearRefLinkIcon(thisAlphaIndex)
else
if (objectP(pLatchedAlpha) ) then
--òò because the art department could not generate the
--òò the highlight art for the topic menu we need to
--disable the highlight fucnctionality (commented out below)
--if (rollover(2)) then
-- secondaryHilight (sub-menu)
-- set vOffset = the mouseV
-- setTopicHiLight(pLatchedAlpha , vOffset)
-- else
-- revert to latched topic menu
setTopicMenu(pLatchedAlpha)
-- end if
end if
end if
end
on clickAlpha me
set thisAlpha = the mouseCast
if (thisAlpha >= 1 and thisAlpha <= 26) then
set pLatchedAlpha = getAt(pTopicMenu,thisAlpha)
clearRefLinkIcon(pLatchedAlpha)
end if
end
on clickTopic me
set vOffset = the mouseV
selectTopicFromMenu(pLatchedAlpha,vOffset)
end
on clickRefLink me , horzPos,vertPos
set vOffset = vertPos --the mouseV
clickRefLink(pLatchedAlpha,vOffset ,horzPos,vertPos)
end
on resetIndex me
reset(pLatchedAlpha )
end
on initIndex me
set pTopicMenu = []
set indexCount = 1
set topicMenuClass = the number of cast "aTopicMenu"
--on birth me , startCast , stopCast , theSprite , theDefaultCast┬
, functionCast ,iconCast ,numLeftEntries, newRightEntries
--put "--òò A Topic Menu"
set thisMenu = (birth (script topicMenuClass, 353 , 353 , 2 , 352 , 41 , 1002, 1, 0))
append pTopicMenu, thisMenu
set pLatchedAlpha = thisMenu
--put "--òò B Topic Menu"
set thisMenu = (birth (script topicMenuClass, 354 , 354 , 2 , 352 , 41 ,1013, 2, 0))
append pTopicMenu, thisMenu
--put "--òò C Topic Menu"
set thisMenu = (birth (script topicMenuClass, 355 , 355 , 2 , 352 , 41 ,1024, 9, 8))
append pTopicMenu, thisMenu
--put "--òò D Topic Menu"
set thisMenu = (birth (script topicMenuClass, 356 , 356 , 2 , 352 , 41 ,1046, 2, 0))
append pTopicMenu, thisMenu
--put "--òò E Topic Menu"
set thisMenu = (birth (script topicMenuClass, 357 , 357 , 2 , 352 , 41 ,1057, 3, 0))
append pTopicMenu, thisMenu
--put "--òò F Topic Menu"
set thisMenu = (birth (script topicMenuClass, 358 , 358 , 2 , 352 , 41 ,1068, 8, 8))
append pTopicMenu, thisMenu
--put "--òò G Topic Menu"
set thisMenu = (birth (script topicMenuClass, 359 , 359 , 2 , 352 , 41 ,1079, 4, 0))
append pTopicMenu, thisMenu
--put "--òò H Topic Menu"
set thisMenu = (birth (script topicMenuClass, 360 , 360 , 2 , 352 , 41 ,1090, 4, 0))
append pTopicMenu, thisMenu
--put "--òò I Topic Menu"
set thisMenu = (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,331, 0, 0))
append pTopicMenu, thisMenu
--put "--òò J Topic Menu"
set thisMenu = (birth (script topicMenuClass, 361 , 361 , 2 , 352 , 41 ,1101, 2, 0))
append pTopicMenu, thisMenu
--put "--òò K Topic Menu"
set thisMenu = (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,353, 0, 0))
append pTopicMenu, thisMenu
--put "--òò L Topic Menu"
set thisMenu = (birth (script topicMenuClass, 362 , 362 , 2 , 352 , 41 ,1112, 3, 0))
append pTopicMenu, thisMenu
--put "--òò M Topic Menu"
set thisMenu = (birth (script topicMenuClass, 363 , 363 , 2 , 352 , 41 ,1123, 14, 0))
append pTopicMenu, thisMenu
--put "--òò N Topic Menu"
set thisMenu = (birth (script topicMenuClass, 364 , 364 , 2 , 352 , 41 ,1145, 2, 0))
append pTopicMenu, thisMenu
--put "--òò O Topic Menu"
set thisMenu = (birth (script topicMenuClass, 365 , 365 , 2 , 352 , 41 ,1156, 1, 0))
append pTopicMenu, thisMenu
--put "--òò P Topic Menu"
set thisMenu = (birth (script topicMenuClass, 366 , 366 , 2 , 352 , 41 ,1167, 9, 0))
append pTopicMenu, thisMenu
--put "--òò Q Topic Menu"
set thisMenu = (birth (script topicMenuClass, 367 , 367 , 2 , 352 , 41 ,1178, 2, 0))
append pTopicMenu, thisMenu
--put "--òò R Topic Menu"
set thisMenu = (birth (script topicMenuClass, 368 , 368 , 2 , 352 , 41 ,1189, 3, 0))
append pTopicMenu, thisMenu
--put "--òò S Topic Menu"
set thisMenu = (birth (script topicMenuClass, 369 , 369 , 2 , 352 , 41 ,1200, 13, 9))
append pTopicMenu, thisMenu
--put "--òò T Topic Menu"
set thisMenu = (birth (script topicMenuClass, 370 , 370 , 2 , 352 , 41 ,1222, 14, 0))
append pTopicMenu, thisMenu
--put "--òò U Topic Menu"
set thisMenu = (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
--put "--òò V Topic Menu"
set thisMenu = (birth (script topicMenuClass, 371 , 371 , 2 , 352 , 41 ,1244, 2, 0))
append pTopicMenu, thisMenu
--put "--òò W Topic Menu"
set thisMenu = (birth (script topicMenuClass, 372 , 372 , 2 , 352 , 41 ,1255, 6, 0))
append pTopicMenu, thisMenu
--put "--òò X Topic Menu"
set thisMenu = (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,45, 0,0))
append pTopicMenu, thisMenu
--put "--òò Y Topic Menu"
set thisMenu = (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,479, 0, 0))
append pTopicMenu, thisMenu
--put "--òò Z Topic Menu"
set thisMenu = (birth (script topicMenuClass, 0 , 0 , 0 , 352 , 41 ,45, 0,0 ))
append pTopicMenu, thisMenu
set the trace = FALSE
end